home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / angry / main.dir / 00012_Script_item_clickOn < prev    next >
Text File  |  1999-03-01  |  2KB  |  74 lines
  1. property WhichListPos
  2.  
  3. global Clickers
  4. global gScroll
  5.  
  6. on enterframe me
  7.   
  8.   set doMe = getAt(Clickers, WhichListPos)
  9.   
  10.   if the pShadowOn of doMe = TRUE then
  11.     set the member of sprite(the pAnimSpr of doMe) to ¼
  12.       member (the pShadSpr of doMe)    
  13.   end if
  14.   updatestage  
  15. end 
  16.  
  17.  
  18. on mouseDown me
  19.   
  20.   set doMe = getAt(Clickers, WhichListPos)
  21.   set the pShadowOn of doMe = TRUE
  22.   
  23.   if the pShadowOn of doMe = TRUE then
  24.     set the member of sprite(the pAnimSpr of doMe) to ¼
  25.       member (the pShadSpr of doMe)    
  26.     updatestage
  27.   end if  
  28.   
  29.   repeat with a = 1 to count(gScroll)
  30.     ReturnLoc getAt(gScroll, a)
  31.   end repeat
  32.   
  33.   go to movie (the pMovie of doMe)
  34.   
  35. end
  36.  
  37.  
  38. on mouseWithin me
  39.   
  40.   set doMe = getAt(clickers, WhichListPos)
  41.   -- position the shadow sprite here  
  42.   set the member of sprite(the pAnimSpr of doMe) to ¼
  43.       member (the pShadSpr of doMe)  
  44.   updatestage
  45.   
  46. end
  47.  
  48. on mouseLeave me
  49.   
  50.   set doMe = getAt(clickers, WhichListPos)
  51.   -- remove the shadow sprite here
  52.   
  53.   set the member of sprite(the pAnimSpr of doMe) to ¼
  54.       member (the pShadSpr of doMe)    
  55.   updatestage
  56.   
  57.   if the pShadowOn of doMe = FALSE then
  58.     set the member of sprite(the pAnimSpr of doMe) to ¼
  59.       member (the pStartSpr of doMe)    
  60.     updatestage
  61.   end if
  62.   
  63. end
  64.  
  65.  
  66. on getPropertyDescriptionList
  67.   set p_list = [¼
  68.     #WhichListPos: [ #comment:  "List Position:",¼
  69.                       #format:  #integer,¼
  70.                      #default: 1]]
  71.   
  72.   return p_list
  73. end
  74.